PC Gamer (Italian) 48/PC Gamer IT CD 48 2-2.iso/utility/nmail28u/DISK1/_SETUP.1/NETMAIL.EXE/0/RCDATA/TVIEWMAILFORM/TVIEWMAILFORM.txt

Text File | 1999-09-10 | 6.5 KB | 261 lines

object ViewMailForm: TViewMailForm
  Left = 49
  Top = 149
  Width = 551
  Height = 312
  Caption = '-'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  FormStyle = fsMDIChild
  Position = poDefaultPosOnly
  Visible = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 543
    Height = 67
    Align = alTop
    BevelOuter = bvNone
    BorderStyle = bsSingle
    Color = clWindow
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 3
      Width = 32
      Height = 13
      Caption = 'From:'
    end
    object Label2: TLabel
      Left = 8
      Top = 19
      Width = 32
      Height = 13
      Caption = 'Date:'
    end
    object Label3: TLabel
      Left = 8
      Top = 37
      Width = 48
      Height = 13
      Caption = 'Subject:'
    end
    object From: TLabel
      Left = 72
      Top = 4
      Width = 5
      Height = 13
    end
    object Date: TLabel
      Left = 72
      Top = 19
      Width = 5
      Height = 13
    end
    object Subject: TLabel
      Left = 72
      Top = 34
      Width = 5
      Height = 13
    end
  end
  object Memo: TStringsViewer
    Left = 0
    Top = 67
    Width = 543
    Height = 129
    Align = alClient
    Color = clWhite
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Pitch = fpFixed
    Font.Style = []
    TabOrder = 1
    OnLinkClicked = MemoLink
  end
  object AttachmentPanel: TPanel
    Left = 0
    Top = 196
    Width = 543
    Height = 89
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 2
    Visible = False
    object Panel1: TPanel
      Left = 0
      Top = 0
      Width = 543
      Height = 22
      Cursor = crVSplit
      Align = alTop
      Caption = 'Message Attachments'
      TabOrder = 0
      OnMouseDown = Panel1MouseDown
      OnMouseUp = Panel1MouseUp
    end
    object AttachList: TListBox
      Left = 0
      Top = 22
      Width = 442
      Height = 67
      Align = alClient
      ItemHeight = 33
      Style = lbOwnerDrawFixed
      TabOrder = 1
      OnDrawItem = AttachListDrawItem
    end
    object Panel3: TPanel
      Left = 442
      Top = 22
      Width = 101
      Height = 67
      Align = alRight
      TabOrder = 2
      object ViewBtn: TBitBtn
        Left = 6
        Top = 6
        Width = 89
        Height = 25
        Caption = 'View'
        TabOrder = 0
        OnClick = ViewBtnClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          33033333333333333F7F3333333333333000333333333333F777333333333333
          000333333333333F777333333333333000333333333333F77733333333333300
          033333333FFF3F777333333700073B703333333F7773F77733333307777700B3
          33333377333777733333307F8F8F7033333337F333F337F3333377F8F9F8F773
          3333373337F3373F3333078F898F870333337F33F7FFF37F333307F99999F703
          33337F377777337F3333078F898F8703333373F337F33373333377F8F9F8F773
          333337F3373337F33333307F8F8F70333333373FF333F7333333330777770333
          333333773FF77333333333370007333333333333777333333333}
        NumGlyphs = 2
      end
      object SaveBtn: TBitBtn
        Left = 6
        Top = 36
        Width = 89
        Height = 25
        Caption = 'Save'
        TabOrder = 1
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
          7700333333337777777733333333008088003333333377F73377333333330088
          88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
          000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
          FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
          99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
          99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
          99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
          93337FFFF7737777733300000033333333337777773333333333}
        NumGlyphs = 2
      end
    end
  end
  object Query3: TQuery
    DatabaseName = 'Vistamail'
    SQL.Strings = (
      'select * from dbAtt'
      'where PosAtt=:PosM')
    Params.Data = {0100010004506F734D00030400000000000100}
    Left = 66
    Top = 217
    object Query3Name: TStringField
      FieldName = 'Name'
      Size = 30
    end
    object Query3PosAtt: TIntegerField
      FieldName = 'PosAtt'
      Visible = False
    end
  end
  object DataSource3: TDataSource
    DataSet = Query3
    Left = 98
    Top = 221
  end
  object DataSource2: TDataSource
    DataSet = Query2
    Left = 316
    Top = 233
  end
  object Query2: TQuery
    DatabaseName = 'Vistamail'
    SQL.Strings = (
      'select * from dbadrmes'
      'where PosA=:PosM')
    Params.Data = {0100010004506F734D00030400010000000000}
    Left = 320
    Top = 241
    object Query2PosA: TIntegerField
      FieldName = 'PosA'
      Visible = False
    end
    object Query2TipA: TIntegerField
      FieldName = 'TipA'
      Visible = False
    end
    object Query2Adress: TStringField
      FieldName = 'Adress'
      Size = 255
    end
    object Query2TimeZapis: TDateTimeField
      FieldName = 'TimeZapis'
      Visible = False
    end
    object Query2TimePost: TDateTimeField
      FieldName = 'TimePost'
      Visible = False
    end
    object Query2Sost: TIntegerField
      FieldName = 'Sost'
      Visible = False
    end
  end
  object Query4: TQuery
    DatabaseName = 'Vistamail'
    SQL.Strings = (
      'select * from dbtext'
      'where PosT=:PosM'
      'order by NomStr')
    Params.Data = {0100010004506F734D00030400000000000000}
    Left = 470
    Top = 179
    object Query4PosT: TIntegerField
      FieldName = 'PosT'
      Visible = False
    end
    object Query4NomStr: TIntegerField
      FieldName = 'NomStr'
      Visible = False
    end
    object Query4Stroka: TStringField
      DisplayLabel = 'Text'
      FieldName = 'Stroka'
      Size = 255
    end
  end
  object DataSource4: TDataSource
    DataSet = Query4
    Left = 510
    Top = 183
  end
end